home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / bin_c / pretty28.c < prev    next >
C/C++ Source or Header  |  1998-12-22  |  1KB  |  66 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "pretty.h"
  9.  
  10.  
  11. T6 r242is_character(T242* C){
  12. T6 R=0;
  13. R=X62is_character(r242run_type(C));
  14. return R;
  15. }
  16.  
  17.  
  18. T6 r242is_reference(T242* C){
  19. T6 R=0;
  20. R=X62is_reference(r242run_type(C));
  21. return R;
  22. }
  23. /*No:TYPE_LIKE_ARGUMENT.written_mark*/
  24. /*No:TYPE_LIKE_ARGUMENT.like_what*/
  25. /*No:TYPE_LIKE_ARGUMENT.tmp_written_mark*/
  26.  
  27.  
  28. void r242make(T242* C,T0* a1,T0* a2){
  29. C->_start_position=a1;
  30. C->_like_what=a2;
  31. r7copy((T7*)(((T0*)ms240_87371)),((T0*)ms12_1724));
  32. r7extend((T7*)(((T0*)ms240_87371)),'\40');
  33. r7append((T7*)(((T0*)ms240_87371)),r172to_string((T172*)((C)->_like_what/*8*/)));
  34. C->_written_mark=r66item(((T0*)ms240_87371));
  35. }
  36.  
  37.  
  38. T6 r242is_none(T242* C){
  39. T6 R=0;
  40. R=X62is_none(r242run_type(C));
  41. return R;
  42. }
  43. /*No:TYPE_LIKE_ARGUMENT.pretty_print*/
  44.  
  45.  
  46. T6 r242is_array(T242* C){
  47. T6 R=0;
  48. R=X62is_array(r242run_type(C));
  49. return R;
  50. }
  51.  
  52.  
  53. void r242fatal_error_generic_list(T242* C){
  54. r37add_type((T0*)C,((T0*)ms62_29184));
  55. r37print_as_fatal_error((T37*)(oBC11eh));
  56. }
  57. /*No:TYPE_LIKE_ARGUMENT.is_like_argument*/
  58.  
  59.  
  60. T6 r242is_double(T242* C){
  61. T6 R=0;
  62. R=X62is_double(r242run_type(C));
  63. return R;
  64. }
  65.  
  66.